DP83932EB-EISA SONIC/ 
EISA Packet Driver for 
PC/TCP 



INTRODUCTION 

This is a complete program listing for a network device driv- 
er for the DP83932EB-EISA SONIC EISA Demonstration 
and Evaluation Board. This driver enables the DP83932- 
EISA to operate with the Personal Computer-based TCP/IP 
software package, distributed by FTP Software Inc., called 
PC/TCP. Contact FTP Software Inc. at (617) 246-0900 for 
more information about the PC/TCP product offerings. 
This driver conforms to version 1 .9 of FTP Software's Pack- 
et Driver Specification, and works with verison 2.x of the 
PC/TCP product (and products that have adopted the Pack- 
et Driver Specification). 



National Semiconductor 
Application Note 859 
August 1992 



& 



This program listing is provided as an example of drive soft- 
ware for the DP83932 Systems Oriented Network Interface 
Controller (SONIC). The driver is written in Microsoft C (5.1 
or greater) and Microsoft Assembler (5.1 or greater). Since 
the majority of the software is written in C, the concepts 
provided are easily portable to other environments. 
This example software is provided as an example, and is not 
necessarily the most optimal implementation. The code has 
been thoroughly tested with PC/TCP. 
The driver is listed by modules in the following order: 

1. pktdrv.c 

2. far.c 

3. isr.c 

4. sonic. c 

5. pktdrv.h 

6. sonic.h 

7. isrlib.asm 

8. pktint.asm 

9. makefile 
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PKTDRV.C 



static char pktdrv_rcsid[ ]="@ (#) $ID: $" ; 

/* 
***************************************************** 



Copyright (c) 



1992 by National Semiconductor Corporation 
All Rights Reserved 



****************************************************************************** 



FILE: pktdrv.c 

NOTES: This program is a packet driver that provides a common interface 
between PC/TCP's kernel and NSC's SONIC hardware. This program 
was based on a set of drivers provided by Clarkson from FTP. 



UPDATE LOG: 
When /Who 



Why/What/Where 



11/30/90 Mike Lui 
04/10/92 Michael Zhang 



Convert to work for SONIC 32 bit 

Added read_conf ig() ; 

Added 'transmitactive=l' in send_packet ( ) j 



"/ 



/include 
/include 
/include 
#include 
/include 
#include 



<stdio.h> 

<dos.h> 

<memory.h> 

<string.h> 

"pktdrv.h" 

"sonic. h" 



/* externals */ 
extern void (interrupt far drv_isr)(); 
extern unsigned _psp; 



/* the interrupt we use */ 
/* segment address of PSP */ 



/* Driver information 
static unsigned int 
static unsigned char 
static unsigned int 
static unsigned char 
static unsigned int 



k i 



drv_version =1; 
drv_class =1; 
drv_type = 14; 
drv_number = 0; 
drv_funct =5; 



/* driver version */ 
/* driver class */ 
/* driver type */ 
/* driver number */ 
/* basic and high- 
performance driver function */ 
static char drv_name[] = /* driver name */ 

"National Semiconductor SONIC/TCP 32-bit Packet Driver"; 
static char cpy_msg[] = 

"Copyright (c) 1992 by National Semiconductor Corporation"; 
static char drv_rev[] = "1.2"; /* current driver rev */ 

static unsigned char B0ARD_ID[ ]={ 0x41,0x98,0x10,0x01 }; /* PLX1001 */ 



static HANDLE handle_tbl [MAX_HANDLES] ; 

static void read_conf ig() ; 

void (interrupt far *sys_isr)(); 

char far *pkt_signature = "PKT DRVR" ; 

unsigned int packet_int_no = 0x60; 

static unsigned far *psp_ptr; 

unsigned mem_sz; 

unsigned char type_buf [MAX_TYPE_LEN] ; 

static void usage ( ) ; 



/* create handle structs */ 

/* read board config info */ 

/* remember system isr */ 

/* interrupt for communications */ 

/* pointer to PSP */ 

/* program memory size in paragraphs */ 



union REGS r_regs; 
struct SREGS s_regs; 
int send_p ending; 



/* required for Synernetics */ 
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static int syn_installed; /* required for Synernetics */ 

extern int opterr; 
extern int optind; 
extern char *optarg; 

/* 

* main() 
* 

* Main procedure. 

* Once initialization is complete terminate and stay resident. 
*/ 

main(argc, argv) 
int argc; 
char *argv[] ; 
{ 

psp_ptr = (unsigned far *)( (unsigned long)_psp << 16); 

mem_sz = (psp_ptr[l] - psp) ; 

read_conf ig() ; /* read expansion board config*/ 

init_drv(argc, argv) ; /* initialize driver and hardware */ 

outpw(regbase+cr, 8) ; /* enable receiver */ 

/* terminate and stay resident */ 
_dos_keep(0, mem_sz) ; 



/* 

* int_handler() 
* 

* This routine is called from an assembly isr routine "drv_isr" 

* to handle the application interrupt. The isr routine passes a 

* set of pointers of the registers to this routine. Register AH 

* contains which function is to be performed. These registers will 

* be restored in "drv_isr" before returning from the interrupt. 
* 

* Return values: If an error occurred the value will be in 

* the DH register and the carry bit of cflag 

* will be set. 

*/ 

int_handler (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

int ret_val; 

switch (regs->h. ah) { 
case 1: 

ret_val = driver_info(regs, sregs); 

break; 
case 2: 

ret_val = access_type(regs, sregs); 

break; 
case 3: 

retval = release_type(regs, sregs) ; 

break; 
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case 4: 

ret_val = send_packet (regs, sregs) ; 

break; 
case 5: 

ret_val = terminate (regs, sregs) ; 

break; 
case 6: 

ret__val = get_address (regs, sregs); 

break; 
case 7: 

ret_val = reset_inter face (regs, sregs); 

break ; 
case 10: 

ret_val = get_param(regs, sregs) ; 

break; 
case 11: 

ret_val = as send_pkt (regs, sregs) ; 

break; 
case 24: 

ret_val = get_stats (regs, sregs); 

break; 
default: 

ret_val = BAD_C0MMAND; 
} 

if(ret_val) { 

regs->h.dh = ret_val; 
regs->x.cf lag |= 0x1; 

} 



/* high-performance function */ 
/* high-performance function */ 



/* put error code into dh */ 
/* and set carry bit */ 



* driver_info() 



Return information on the driver interface. Handle is optional 
and is not used in new driver?? 



Return values: - Success 



*/ 



driver_info(regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 



{ 



regs->x.bx = drv_version; 
regs->h.ch = drv_class; 
regs->x.dx = drv_type; 
regs->h.cl = drv_number; 
regs->x.si = (unsigned) drv_name; 



/* driver version */ 

/* driver class */ 

/* driver type */ 

/* driver number */ 

/* driver name */ 



sregs->ds = (unsigned long) ( (char far *)drv_name) » 16; 
regs->h.al = drv_funct; /* driver function */ 

return 0; 



/* 



* access_type() 



Initiate access to packets for the specific type. Since the packet 
type field needs to have the bytes of 16 bit values swaped, the 
handle will store the type field byte swapped. 
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Return values: 



* 

*/ 
access_type(regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

int i, n, 

open_handle = OPEN, 
type_cnt ; 



- Success 
>0 - Failure 



/* available handle */ 



/* first check a few things to make sure packet access is ok */ 

/* check class */ 
if (regs->h.al != drv_class) { 
return NO_CLAS; 

} 

/* check type (ours or generic) */ 

if ( i ( (regs->x.bx == drv_type) || (regs->x.bx == -1))) { 

return NO_TYPE; 
} 

/* check number (ours or generic) */ 
if (i ((regs->h.dl == 0) || (regs->h.dl == 1) ) ) { 
return NO_NUMBER; 

} 

/* check packet type length, if too long its not ours */ 
if (regs->x.cx > MAX_TYPE_LEN) { 

return TYPE_INUSE; 
} 



/* 

* now check for an available handle and if the handle already 

* exists with same packet type. 
*/ 

type_ptr = (char far *)(( (unsigned long) sregs->ds « 16) | regs->x.si), 

for(i =0; i < regs->x.cx; i++) 
type buf [ i ] = type_ptr [ i ] ; 

for(n =0; n < MAX_HANDLES; n++) { 

if (handle_tbl[n] .in_use) { /* check packet type */ 

type_cnt = MIN(regs->x.cx, handle_tbl [n] . len) ; 
if ( !far_memcmp( (char far *)type_buf, 

(char far *)handle_tbl[n] . type, type_cnt) ) 
return TYPE_INUSE; /* duplicate types */ 



> 

else if (open_handle =- OPEN) 
open_handle - n; 



/* grab first open handle */ 



if (open_handle == OPEN) 
return BAD_HANDLE; 

/* copy the handle */ 
handle_tbl[open_handle] . in_use++; 



/* no available handles */ 
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for(i =0; i < regs->x.cx; i++) { 

handle_tbl[open_handle] .type[i] = type_buf[i] 
} 

handle_tbl [open_handle] . len = regs->x.cx; 
handle_tbl [open_handle] .rec_es = sregs->es; 
handle_tbl[open_handle] .rec_di = regs->x.di; 



regs->x.ax = open_handle; /* 

return 0; /* 



return handle */ 
return success */ 



release_type ( ) 
Release access to packets with a particular handle. 



Return values: 




>0 



- Success 

- Failure 



*/ 



release_type(regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 



{ 



if (chk_handle (regs->x . bx) ) 
return BAD_HANDLE; 

/* release handle */ 

handle_tbl[regs->x.bx] . inuse = 0; 
return 0; 



/* 



* send_packet ( ) 
* 

* Send packet buffer. 



Return values: 




>0 



- Success 

- Failure 



*/ 



send_packet(regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

char far *frame_ptr; 

unsigned long pkt_addr; 

unsigned int buf_len; 

int i ; 

tda_struct *tmp_tda ; 

short previous_tda; 

unsigned short addr; 

/* check if frame is too big */ 
if (regs->x.cx > BUF_SZ) { 
return NO_SPACE; 

} 

/* update driver stats */ 
drv_stats . packets_out++ ; 
drv_stats.bytes_out += regs->x.cx; 



/* pointer to frame */ 

/* physical address of packet */ 

/* frame length */ 
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/* point to the app's send frame */ 

frame_ptr = (char far *)(( (unsigned long) sregs->ds « 16) | 

regs->x*si) ; 
pkt addr = (unsigned long) sregs->ds * 16 + regs->x.si; 

buf_len = regs->x.cx; /* frame+FC+SNAP length */ 

/* save current tda */ 
previous_tda=curtda ; 

if (transmitactive) { 

/* network is currently busy transmitting, just queue up the tda */ 
if (curtda==TDANUM-l) 

return CANT_SEND; 
else { 
/* copy data area from the frame */ 

far_memcpy( (char far *) &tba[curtda+l] , &frame_ptr [0] , regs->x.cx); 

addr=tda_addr+(curtda+l) *sizeof (tda_struct) ; 

tmp_tda= ( tda_struct* ) addr ; 

tmp_tda->pkt_size=buf_len; 

tmp_tda->f rag_count=l ; 

tmp_tda->f rag_size=buf_len ; 

tmp_tda->link |= 1; 

tmp_tda->type = BASIC; 

addr-=sizeof (tda_struct) ; 

tmp_tda= ( tda_struct* ) addr ; 

tmp_tda->link &= OxOfffe; 

curtda++; 
} 
} 
else { 

/* network is free */ 
retry=0; 

/* copy data area from the frame */ 

far_memcpy( (char far *)&tba[0], &frame_ptr[0] , regs->x.cx); 
tmp_tda=(tda_struct*) tda_addr; 
tmp_tda->pkt_size=buf _len ; 
tmp_tda->f rag_count=l ; 
tmp_tda->frag_size=buf_len; 
tmp_tda->link |= 1; 
tmp_tda->type = BASIC; 
tda_head=0; 
tda_tail=l; 
curtda=0; 

outpw(regbase+ctda, tda_start_addr) ; /* load ctda */ 
transmitactive=l ; 
} 

outpw(regbase+cr, 2) ; /* issue the transmit command */ 

return ; 



* terminate () 
* 

* Terminate the driver. 
* 

* Return values: - Success 

* >0 - Failure 
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*/ 

terminate (regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

int sonic_irq; 

sonic_irq=3; 

_dos_setvect (packet_int_no, sys_isr) ; 

sonic_isr_disable(sonic__irq) ; 
/* free environment memory */ 
_dos_freemem(psp_ptr [0x16] ) ; 

/* free memory and return to app */ 
if (_dos_freemem(_psp) ) 

return CANT_TERMINATE; 

return ; 



/* put back system isr */ 
/* remove sonic interrupt */ 



/* 



* get_address ( ) 

Get the local net address. 



Return values: 



k / 



- Success 
>0 - Failure 



get_address ( regs , sregs ) 
union REGS far *regs; 
struct SREGS far *sregs; 



{ 



int i, old_mode; 
char far *addr_ptr; 

if (chk__handle(regs->x.bx) ) 
return BAD_HANDLE ; 



/* pointer to address */ 



/* get buffer */ 

addr_ptr = (char far *)(( (unsigned long) sregs->es << 16) 

/* 

* copy ethernet address from hardware. 

* regs->x.cx is the length of buffer, fail if address 

* is too big to fit in buffer - NO SPACE 

*/ 
if (regs->x.cx < 6) 
return NO_SPACE; 

regs->x.cx = 6; 

for(i =0; i < regs->x.cx; i++) { 

addr_ptr[i] = inp(regbase+0xc90+i) ; 



regs->x.di) ; 



return ; 
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* reset interface () 

* 

* Reset the interface for the particular handle. If more than one 

* handle is open return CANT_RESET so other applications (handles) 

* will not get confused. 
* 

* Return values: - Success 

* >0 - Failure 
*/ 

reset_interf ace ( regs , sregs ) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

char far *addr_ptr; /* pointer to address */ 

int i, handle_cnt = 0; 

if (chk_handle(regs->x.bx) ) 
return BAD_HANDLE; 

/* check if there is more than one handle is open */ 
for(i = MIN_HANDLE; i < MAX_HANDLES; i++) 

if (handle_tbl[i] . in_use 1= 0) handle_cnt++; 
if (handle_cnt > 1) 

return CANT_RESET; 

/* Reset the hardware to a known state */ 
/* Will need something maybe ??? */ 



return 0; 

} 

/* 

* get_param() 
* 

* Return driver parameters 
* 

* Return values: - Success 

* >0 - Failure 

*/ 
get_param(regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

if(drv_funct 1=5 && drv_funct i= 6) 
return BAD_COMMAND; 

drv_param „ ma j or_rev=l ; 
drv_param. minor_rev=9 ; 
drv_param. length=14 ; 
drv_param . addr_len=6 ; 
drv_param.mtu=1512; 
drv_param.multicast_aval=90; 
drv_param . rcv_buf s=3 ; 
drv_param . xmt_buf s=3 ; 
drv_param. int_num=0; 



TL/F/1 1720-8 



regs->x.di = (unsigned) &drv_param; /* driver stats */ 

sregs->es = (unsigned long) ( (char far *) &drv_param) >> 16; 

return ; 



as_send_pkt ( ) 

High performance send packet 
Return values 




>0 



- Success 

- Failure 



*/ 



as_send_pkt ( regs , sregs ) 
union REGS far *regs; 
struct SREGS far * sregs; 



{ 



char far *frame_ptr; 
unsigned long pkt_addr; 
unsigned int buf len; 
int i ; 
tda_struct *tmp_tda ; 
short previous_tda; 
unsigned short addr; 

/* check if frame is too big */ 
if (regs->x.cx > BUF_SZ) { 

return NO_SPACE; 
} 

/* update driver stats */ 
drv_stats . packets out++ ; 
drv_stats . bytes_out += regs->x.cx; 

/* point to the app's send frame */ 

frame_ptr = (char far *)(( (unsigned long) sregs->ds « 16) | 

regs->x.si) ; 
pkt addr = (unsigned long) sregs->ds * 16 + regs->x.si; 



/* pointer to frame */ 

/* physical address of packet */ 

/* frame length */ 



buf_len = regs->x.cx; 



/* frame+FC+SNAP length */ 



/* save current tda */ 
previous_tda=curtda ; 

if (transmitactive) { 

-/* network is currently busy transmitting, just queue up the tda */ 
if (curtda==TDANUM-l) { 

xmt_upcall(CANT_SEND, (char far *) &frame_ptr,regs->x.di, sregs->es) ; 

return CANT_SEND; 
} 

else { 
/* copy data area from the frame */ 

far_memcpy( (char far *) &tba[curtda+l] , &frame_ptr[0] , regs->x.cx); 

addr=tda_addr+(curtda+l) *sizeof (tda_struct) ; 

tmp_tda= (tda_struct*) addr ; 

tmp__tda->pkt_size=buf_len; 

tmp_tda->f rag_count=l ; 
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tmp_tda->f rag_size=buf _len ; 

tmp_tda->link |= 1; 

tmp_tda->type = HIGH_PERFORMANCE; 

tmp_tda->buf f er=f rame_ptr ; 

tmp_tda->xmt_es=sregs->es ; 

tmp_tda->xmt_di=regs->x . di ; 

addr-=sizeof (tda_struct) ; 

tmp_tda= (tda_struct*) addr ; 

tmp_tda->link &= OxOfffe; 

curtda++; 

tda_tail=curtda+l ; 
} 
} 
else { 

/* network is free */ 

retry=0; 

/* copy data area from the frame */ 

far_memcpy( (char far *) &tba[0] , &frame_ptr[0] , regs->x«cx); 

tmp_tda=(tda_struct*) tda_addr; 

tmp_tda->pkt_size=buf_len; 

tmp_tda->f rag_count=l ; 

tmp_tda->frag_size=buf_len; 

tmp_tda->link |= 1; 

tmp_tda->type = HIGH_PERFORMANCE; 

tmp_tda->buf f er=f rame_ptr ; 

tmp_tda->xmt_es=sregs->es ; 

tmp_tda->xmt_di=regs->x.di; 

curtda=0 ; 

tda_head=0; 

tda_tail=l; 

outpw(regbase+ctda, tda_start_addr) ; /* load ctda */ 

outpw(regbase+cr, 2); /* issue the transmit command */ 

return 0; 



/* 

* get_stats() 
* 

* Return driver statistics. 
* 

* Return values: - Success 

* >0 - Failure 

*/ 
get_stats(regs, sregs) 
union REGS far *regs; 
struct SREGS far *sregs; 
{ 

if (chk_handle(regs->x.bx) ) 
return BAD_HANDLE; 

regs->x.si = (unsigned) &drv_stats; /* driver stats */ 

sregs->ds = (unsigned long) ((char far *) &drv_stats) » 16; 

return 0; 
} 
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* drv_rcvr() 
* 

* Receiver procedure. Once a frame is recieved, we need to make two upcall 

* with the receiving routine provided by the application. The first 

* call (AX ==0) is to request a buffer to copy the frame to. The second 

* call (AX == 1) indicates that the frame has been copied. 
* 

* Return values: - Success 

* >0 - Failure 
*/ 

/* void far drv_rcvr ( ) */ 

drv_rcvr ( ) 

{ 

int i; 

int handle_found = OPEN; /* set if valid frame recieved */ 

char far *cp_ptr; 

unsigned short addr; 

unsigned char far * frame; 

/* get the frame */ 

while ((unsigned short) cur_rda->status != 0) { 

frame= (unsigned char far *) (((unsigned long) cur_rda->pkt_ptrl « 28) | 

(unsigned short) cur_rda->pkt_ptrO) ; 
/* validate the received frame */ 
for(i = MIN_HANDLE; i < MAX__HANDLES ; i++) { 
if ( (handle_tbl[i] . in_use ==0) || 

((((unsigned long)handle_tbl [ i] ,rec_es « 16) | 
handle_tbl[i] . rec_di) ==0)) 
continue; /* go to next handle */ 

if ( lfar_memcmp( (char far *) handle_tbl [ i] .type, 

&frame[ETYPE_OFS], handle_tbl [ i] . len) ) { 
handle_found = i; 
break; 
} 
} 
if (handle_found == OPEN) { 

drv_stats . packets_dropped++ ; 
f ree_rda ( ) ; 
continue; 
> 

if ( (unsigned short) cur_rda->status & 0x0c) { 
drv_stats . packets_dropped++ ; 
f reerda ( ) ; 
continue; 
} 

/* update driver stats */ 

drv_stats . packets_in++ ; 

drv_stats . bytes_in += (unsigned short) cur_rda->byte_count; 

/* first upcall, tell them frame size */ 

app_recv(0,nandle_found, MAX( (unsigned short) cur_rda->byte__count-4, 64) , 

(char far *)&cp_ptr, handle_tbl [handle_found] .rec_di, 

handle_tbl[handle_found] .recces) ; 

/* check if copy is permitted */ 
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if (cp_ptr == NULL) { 

drv_stats . packets_dropped++ ; 

f ree_rda ( ) ; 

continue; 
} 

/* copy the frame */ 

far_memcpy(&cp_ptr[0] , &frame[0], (unsigned short) cur_rda->byte_count-4) 

/* second upcall, tell them frame has been copied */ 
app_recv(l, handlefound, (unsigned short) cur rda->byte count-4 , 
(char far *)&cp_ptr, 

handle_tbl [ handle_f ound ] . rec_di , 

handle_tbl[handle_found] . rec_es) ; 

/* free rda */ 
f ree_rda ( ) ; 

} 

return 0; 



/* 

* f reerda ( ) 

* 

* This routine is to free up the currently examined rda for later use 
* 

*/ 

f ree_rda ( ) 
{ 

static int first; 

unsigned short tmp_value; 

unsigned short addr; 

rda_struct * p_rda; 

/* check fifo overrun */ 
if (inpw(regbase+isr) & ISR_RF0) 
outpwfregbase+isr, ISR_RF0) ; 

/* reinitialize the rda */ 
cur_rda->status=0 ; 
cur_rda->byte_count=0 ; 
cur_rda->pkt_ptrO=0 ; 
cur_rda->pkt_ptrl=0 ; 
cur_rda->in_use=0x0f f f f ; 
cur_rda->pkt_link |= 1; 

/* link the previous rda to the current rda */ 
if (currda==0) { 

addr=rda_start_addr+(RDANUM-l) *sizeof (rdastruct) ; 

p_rda=(rda_struct*) addr; 

p_rda->pkt_link&=0x0ff fe; 
} 
else { 

addr=c_rda-sizeof (rda_struct) ; 

p_rda=(rda_struct*) addr; 

p_rda->pkt_link&=0x0fffe; 
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} 

/* get the first buffer number */ 
if (! first) { 

previous_seqno= (unsigned short) cur_rda->seq_no » 8 ; 

first=l; 

} 

/* check whether rba can be reused */ 

if ((unsigned short) cur_rda->seq_no >> 8 1= previous_seqno) { 
previous_seqno= (unsigned short) cur_rda->seq_no » 8; 

tmp_value=rwp_table[cur__rwp] ; 
i f ( cur_rwp==2 ) 

cur_rwp=0 ; 
else 

cur_rwp++ ; 

outpw(regbase + rwp, tmp_value) ; 

tmp_value=inpw(regbase + isr) ; 
if (tmp_value & ISR_RBE) 

outpw(regbase + isr, ISR_RBE) ; 
} 

/* check rde */ 

if (inpw(regbase+isr) & ISR_RDE) { 

outpw(regbase+isr, ISR_RDE) ; 

tmp_value=inpw(regbase+crda) & OxOfffe; 

outpw(regbase+crda, tmp_value) ; 
} 

if (currda == RDANUM-1) { 

currda=0 ; 

c_rda=rda_start_addr ; 

cur_rda= (rda_struct*) c_rda ; 
} 
else { 

currda++; 

c_rda+=sizeof (rda_struct) ; 

cur_rda= ( rda_struct* ) c_rda ; 
} 



/* 

* init_drv() 
* 

* Initialize the driver and hardware. 

*/ 
init_drv(argc, argv) 
int argc; 
char *argv[ ] ; 
{ 

char far *ptr; 

int kill__drv; 

f pr intf ( stderr , 

"%s — Version %s\n%s\n", drv_name, drv^rev, cpy_msg) ; 
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kill_drv = do_args(argc / argv) ; /* process command line */ 




sys_isr = _dos_getvect (packet_int_no) ; /* get system isr */ 
ptr = (char far *)sys isr + 3; 




if(kill_drv) /* terminate active driver 
kill_driver (ptr) ; 


*/ 


if ((ptr != NULL) && (f ar_strcmp (ptr, pkt signature) ==0)) { 
f printf ( stderr , 

"Error: a packet driver already exist at interrupt 0x%x\n" , 
packet int no) ; 
exit(l); 
} 




_dos_setvect(packet_int_no, drv_isr) ; /* install driver isr */ 




init(); /* init SONIC */ 




f printf ( stderr , 

"Packet Driver is using INT 0x%x and %ld bytes of memory \n", 
packet int no, (unsigned long)mem sz * 16); 
} 




/* 
* chk handle () 

* 




* Check if handle is valid. 
* 




* Return values: - Success 

* >0 - Failure 
*/ 

chk_handle (handle) 
unsigned int handle; 
{ 

/* check if handle is in range */ 

if ((handle < MIN HANDLE) || (handle >= MAX HANDLES)) 
return BAD_HANDLE; 








/* check if handle is in use */ 
if (handle tbl [handle] . in use == 0) 
return BAD_HANDLE; 




return 0; 
} 




/* 




* kill_driver() 




* Terminate driver from memory 

* 




* Return values: none - exits from program 

*/ 
kill_driver (ptr) 
char far *ptr; 
{ 

if ((ptr == NULL) || (far_strcmp(ptr, pkt_signature) != 0) ) { 
fprintf (stderr, 

"Error: no packet driver at interrupt 0x%x\n", 
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packet_int_no) ; 

exit(l) ; 
} 

r_regs.h.ah = 5; 
r_regs.x.bx = 0; 

int86(packet_int_no, &r regs, &r_regs) ; 
if (r_regs.x.cf lag) { 

fprintf (stderr, "Error: packet driver can not terminate \n") ; 

exit(l); 
} 

printf ("Terminated packet driver at interrupt 0x%x\n", packet_int_no) ; 
exit(0) ; 



/* 

* do_args ( ) 
* 

* Process program arguments using getopt() . 
* 

* Return values: - Success 

* 1 - Terminate driver 

*/ 
do_args ( argc , argv ) 
int argc; 
char *argv[ ] ; 
{ 

int in, done = 0,c_type; 

char *sptr; 

if (argc ==1) /* use default packet_int_no */ 

return 0; 

#ifdef MSDOS 

if((sptr = strrchr(*argv, '\\')) 1= NULL) 

strcpy (*argv, sptr + 1) ; 
if((sptr = strrchr(*argv, '.')) 1= NULL) 
*sptr = '\0'; 
#endif 

while (((in = getopt(argc, argv, "?khi:t:")) != -1)) { 
switch (in) { 
case 'k' : 

return (1) ; 
break; 
case r t' : 

sscanf (optarg, "%d", &c_type) ; 
if (c_type==l) cable_type=THICK; 
break; 
case ' i': 

if (sscanf (optarg, "0x%x", &packet_int_no) i= 1) 

if (sscanf (optarg, "%d", &packet _int_no) i= 1) { 

break ; 
} 
/* 
if ( Istrncmp (optarg, "Ox", 2)) 

sscanf (&optarg[2], "%x", &packet_int_no) ; 
else 

sscanf (optarg, "%d", &packet_int_no) ; 
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*/ 

if ( (packet_int_no < 0x60) || (packet_int_no > 0x80)) { 

f printf ( stderr , 

"Error: packet_int_no should be in the range 0x60 to 0x80\n") ; 

exit(l); 
} 

break ; 
default: 

usage (argv) ; 
break; 
> 



} 



void usage (argv) 
char **argv; 
{ 

fprintf (stderr, 
"Usage: %s [-h] [-k] [-i packet_int_no] [-t cable type]\n", *argv) ; 

fprintf (stderr, " -h = this help message\n") ; 

fprintf (stderr , 

" -i = set packet interrupt number, default is 0x6 0\n") ; 

fprintf (stderr, " -t - cable type (0 thin coax, 1 AUI)\n M ); 

fprintf (stderr, " -k = terminate packet driver\n") ; 

exit(l) ; 
> 

int opterr = 1; 
int optind = 1; 
char *optarg; 

/* 

* getopt() — Gets options from command line and breaks them up for analysis. 

* It is functionally compatible with the UNIX version. 

* By Ted Thi 
*/ 

getopt(argc, argv, ctrlStr) 
int argc; 
char **argv, 

*ctrlStr; 
{ 

extern char *strchr(); 
register char *s_ptr; 
static int i; 

if (optind < argc && argv [ optind ] [++i] == '\0') { 
if (i == 1 || ++optind >= argc) 

return (-1) ; 
i = 1; 
} 
if (i <= 1) { 

if (optind >= argc || (*argv[ optind] != '-' && *argv[optind] != '/') II 
argv [optind] [1] == '\0') 
return (-1) ; 
if (strcmp (argv [optind] + 1, "-") == 0) { 
optind++; 
return (-1) ; 
> 
} 

if (argv[optind] [i] == ':' || (s_ptr = strchr (ctrlStr, argv [ opt ind] [i] ) ) 
== NULL) { 
if (opterr) 
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fprintf (stderr, "%s; illegal option — %c\n", *argv, argv[optind] [i] ) ; 
return ('?'); 
} 
if (s_ptr[l] ==':'){ 

if (argv[optind] [++i] == '\0') { 
i = 0; 

if (++optind >= argc) { 
if (opt err) 

fprintf (stderr, "%s: option reguires an argument — %c\n" , *argv, 
■ _ptr); 



return ('?'); 



} 

} 

optarg = argv[optind++] + i; 

i = 0; 
} else 

optarg = NULL; 
return (*s_ptr) ; 



} 



void read config() 
{ 

unsigned short reg0,i; 

unsigned short port; 



/* of getopt() */ 



/* read board ID */ 



for(i=0; i<MAX_SLOT; i++) 
{ 

port= ( 0x1000) *i + ID_ADDR; 

if (inpw (port) ==* (unsigned int *)BOARD_ID && 
inpw(port+2)==* (unsigned int *) (B0ARD_ID+2) 



) 



} 



break; 



if( i==MAX_SLOT ) { /* no board found */ 

fprintf (stderr, "No PLX board found. \n»); 
exit (1) ; 

} 



regbase=0xl000 * i; 



reg0=inp(regbase+0xc88) ; 
regO &=0x05; 

switch (regO) { 

case 0: sonic_irq=5; 

break; 
case 2 : sonic_irq=9 ; 

break ; 
case 4: sonic_irq=10 ; 

break; 
case 6: sonic_irq=ll; 

break ; 
} 



/* read plx register */ 
/* bit 2,1 */ 



reg0=inp(regbase+0xc89) ; 

if( regO & 0x02 ) cable_type=THIN; 

else cable_type=THICK; 



/* read plx register 1 */ 
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FAR.C 

static char far_rcsid[ ]="@ (#) $ID: $" ; 
/* 
****************************************************************** 

* Copyright (c) 1992 National Semiconductor Corporation * 

* All Rights Reserved * 

****************************************************************************** 

*/ 
#include <dos.h> 

void far_memcpy (dest, src, cnt) 
register char far *dest; 
register char far *src; 
register unsigned cnt; 

{ 

while (cnt — ) *dest++ = *src++; 
} 

char far *f ar_strcpy (si, s2) 
register char far *sl, far *s2; 
{ 

char far *s3 = si; 

while (*s2) *sl++ = *s2++; 

return (s3) ; 
} 

far_strcmp(sl, s2) 

register char far *sl, far *s2 ; 

{ 

while(*sl) { 

if(*sl != *s2) return(*sl - *s2) ; 
sl++; s2++; 
> 

return(*sl - *s2) ; 
} 

far_memcmp(sl, s2 , cnt) 
register char far *sl, far *s2; 
register int cnt; 
{ 

while ( — cnt > 0) { 
if(*sl i= *s2) 

return (*sl - *s2) ; 
sl++; s2++; 
} 

return(*sl - *s2); 
} 
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ISR.C 

static char isr_csid[ ]="@ (#) $ID: $" ; 
/* 
********************** ******************************************************** 

* Copyright (c) 1992 National Semiconductor Corporation * 

* All Rights Reserved * 

*/ 

#include <dos.h> 
/include "sonic. h" 

#define ISR_STACK_SZ 2 048 

static char irq_map[] = { 

0x08, 0x09, 0x0a, 0x0b, 0x0c, OxOd, OxOe, OxOf, 
0X70, 0X71, 0x72, 0X73, 0x74, 0x75, 0x76, 0x77 

>; 

static int pic_ctl; 
static int pic_mask; 
static int oldjmask _val; 

void (interrupt far *sys_irq_int) () ; 

void interrupt far sonic_isr(); 

void sonic_isr_enable(irq) 

int irq; 

{ 

pic_ctl = irq < 8 ? 0x2 : OxaO; 

pic_mask = pic_ctl + 1; 

old_mask_val = inp(pic_mask) ; 
sys_irq_int = _dos_getvect(irqjmap[irq] ) ; 

disable () ; 

_dos_setvect(irq_map[irq] , sonic_isr) ; 
outp(pic_mask, old_mask_val & ~(1 « irq%8)); 
_enable() ; 

if(irq>8) { /* also enable PIC 1 */ 
int tmp_mask; 
int tmp_pic__ctl; 
int tmp_pic_mask; 

tmp_pic_ctl=0x2 ; 
tmp_pic_mask = tmp_pic_ctl +1; 
tmp_ma sk= i np ( tmp_p i c jma sk ) ; 
_disable() ; 

outp(tmp_pic_mask,tmp_mask & ~(1 << 2) ) ; 
enable () ; 
} 



void sonic_isr_disable(irq) 

int irq; 

{ 

_disable() ; 

_dos_setvect (irq_map[ irq] , sys_irq_int) ; 
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outp(pic_jnask, old_mask_val) ; 
_enable( ) ; 



static char far *old_sp; 

static char isr_stack[ISR_STACK_SZ] ; 

void interrupt far sonic_isr() 
{ 

char far *(far get_sp)(); 

void (far set_sp) () ; 

unsigned short activetda, addr; 

unsigned short isr_reg; 

short i ; 

tda^struct * tmp_tda; 

outpw(regbase+imr, 0) ; 



/* unmask the imr */ 



old_sp - get_sp() ; 

set_sp((char far *)isr_stack + I SR_STACK_S Z ) ; 

_enable() ; 

isr_reg=inpw(regbase+isr) ; 



/* is there a receive */ 

/* clear receive bit */ 

/* process rda */ 

/* is there is transmit done */ 



while (isr_reg) { 

if (isr_reg & ISR_PKTRX) { 

outpw(regbase+isr, ISR_PKTRX) ; 
drv_rcvr ( ) ; 
} 
if (isr_reg & ISR_TXDN) { 

outpw(regbase+isr, ISRJTXDN) ; 

transmitactive=0 ; 

for (i=tda_head; i<tda_tail; i++) { 

addr=tda_addr+i*sizeof (tda_struct) ; 
tmp_tda=(tda_struct *) addr; 

if ((unsigned short) tmp_tda->type==HIGH_PERFORMANCE) 
xmt_upcall(0 / (char far *) &tmp_tda->buf f er, 

(unsigned short) tmp_tda->xmt_di, (unsigned short) tmp_tda- 



/* is there a transmit error */ 



} 
} 
if (isr_reg & ISR_TXER) { 

outpw(regbase+isr, ISR_TXER) ; 
if (retry > 10) { /* if retry 10 and still not succeed to transmi 
activetda=inpw(regbase+ctda) ; 
if (activetda & 0x1) 

transmitactive=0 ; 
else { 

activetda &= OxOfffe; 
outpw(regbase+ctda, activetda+2 0) ; 



outp(regbase+cr, 2); 
} 
} 
else { 

retry++ ; 

outp(regbase+cr, 2); 
} 
} 
if (isr_reg & 0x0020) 



/* transmit */ 

/* try again */ 
/* transmit */ 
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drv_rcvr(); /* process rda */ 

isr_reg=inpw(regbase+isr) ; 
isr_reg &=0x0700; 
} 

_disable() ; 

set_sp(old_sp) ; 

if(pic_ctl== OxaO) outp(0x20, 0x20) ; 
outp(pic_ctl, 0x2 0) ; 

outpwCregbase+imr, 0x0700) ; 
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SONIC.C 

static char sonic_rcsid[ ]="§(#) $ID: $"; 
/* 
********************************************************************* 

* Copyright (c) 1992 by National Semiconductor Corporation * 

* All Rights Reserved * 
********************************************************************* 
* 

*/ 

/include "sonic. h" 
/include "dos.h" 



/* 



* init() 
* 

* This routine is from init_drv() to initialize sonic buffer and sonic 

* registers. 



* Return values: 



if success 

1 if fail 



init() 

{ 



short i ; 

unsigned short cur_loc; 

/* initialize valuables */ 
transmitactive=0 ; 
curtda=0; 
currda=0; 

/* initialize the EISA9010 chip */ 

/* register 1 */ 
/*cable_type=THICK; */ 
outpw (regbase+plx_regl , cable_type) ; 

/* install sonic interrupt */ 
sonic_isr_enable(sonic_irg) ; 

/* initialize sonic register */ 



outpw (regbase+cr, 0x94); 
outpw (regbase+dcr, 0x07 3a) ; 



outpw (regbase+cr, 0) ; 
outpw (regbase+rcr, 0x2 000) ; 
outpw (regbase+isr, OxOf f ff ) ; 
outpw (regbase+imr, 0x0700); 



inittdaf) ; 
init_rda() ; 
init__rra() ; 
init_cam() ; 



/* reset sonic */ 

/* set configuration: wait state 
32-bit data path 
block mode 

8 words receive fifo 
12 words transmit fifo */ 

/* out of reset mode */ 

/* accept broadcast packet */ 

/* reset isr */ 
/* set mask to xmit done, xmit error and 
receive packet */ 

/* init tda */ 
/* init rda */ 
/* init rra */ 
/* init cam */ 



TL/F/1 1720-22 



23 



} 



/* initialize rwp location table */ 
cur_loc=inpw(regbase+rsa) ; 
for (i=0; i<RRANUM; i++) { 

rwp_table [ i ] =cur loc ; 

cur_loc+=16; 
} 
cur_rwp=0; 

/* normal operation */ 

outpw(regbase+cr, 0x100) ; /* read rra */ 

return (0) ; 



/* 

* init_tda() 
* 

* This routine is to link the tda so as to make transmission more 

* efficient. It also initialize the utda and ctda registers. 
* 

*/ 

init_tda() 
{ 

unsigned short i, ul6, 116; 

unsigned long addr32; 

unsigned long tba_addr; 

char far *ptr; 

struct SREGS segregs; 

tda_struct *tmp_tda; 

unsigned short c_tda_addr; 

unsigned short n_tda_addr; 

segread(&segregs) ; /* Read the segment register value */ 

/* check double word boundry */ 

tda_addr= (unsigned short) &tda[0]; 

tda_addr&=Oxfffc; 

/* link the first nine tda */ 

for (i=0; i<TDANUM-l; i++) { 

c_tda_addr=tda_addr+i*sizeof (tda_struct) ; 

n_tda_addr=c_tda_addr+sizeof (tda_struct) ; 

addr32=( ( (unsigned long) segregs. ds « 16) | n_tda_addr) ; 

tba_addr=( ( (unsigned long) segregs. ds << 16) | 
((unsigned short) &tba[i])); 

ul6=addr32»l6 ; 

116= (unsigned short) addr32 ; 

addr32= (unsigned long)ul6 * 16 + 116; 

tmp_tda= ( tda_struct * ) c_tda_addr ; 

tmp_tda->conf ig=0xl000; 

tmp_tda->link= (unsigned short) addr32; 

ul6=tba_addr>>16 ; 

116= (unsigned short) tba_addr ; 

tba_addr= (unsigned long)ul6 * 16 + 116; 

tmp_tda->frag_ptrl=tba_addr>>16; 

tmp_tda->frag_ptrO= (unsigned short) tba_addr; 
} 
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/* set the last tda link field to the first tda */ 
addr32=( ( (unsigned long) segregs.ds << 16) | tda_addr) ; 
tba_addr=( ( (unsigned long) segregs.ds « 16) | 

((unsigned short) &tba[TDANUM-l] ) ) ; 
ul6=addr32»16; 
116= (unsigned short) addr3 2 ; 
addr32= (unsigned long)ul6 * 16 + 116; 
c_tda_addr=tda_addr+(TDANUM-l) *sizeof (tda_struct) ; 
tmp_tda= ( tda_struct * ) c_tda_addr ; 
tmp_tda->link= (unsigned short) addr3 2; 
ul6=tba_addr»16 ; 
116= (unsigned short) tbaaddr ; 
tba_addr= (unsigned long)ul6 * 16 + 116; 
tmp_tda->frag_ptrl=tba_addr>>16; 
tmp_tda->frag_ptrO= (unsigned short) tba_addr; 

/* set the utda and ctda register */ 

outpw(regbase+utda, addr32»16) ; /* set utda */ 

outpw(regbase+ctda, (unsigned short) addr32 ) ; /* set ctda */ 

tda_start_addr= (unsigned short) addr32 ; 



* init_rda ( ) 
* 

* This routine is to link the rda together. It also initialize the urda and 

* crda registers. 
* 

*/ 

init_rda() 
{ 

unsigned short i, ul6, 116; 

unsigned long addr32; 

struct SREGS segregs; 

rda_struct *tmp_rda ; 

unsigned short c_rda addr; 

unsigned short n_rda_addr; 

segread(Ssegregs) ; /* Read the segment register value */ 

/* check double word boundry */ 
rda_addr= (unsigned short) &rda[0]; 
rda_addr &=Oxf f f c ; 
c_rda=rda_addr ; 
rda_start_addr=c_rda ; 
cur_rda=(rda_struct *) c_rda; 
/* link the rda */ 
for (i=0; i<RDANUM-l; i++) { 

c_rda_addr=rda_addr+i*sizeof (rda_struct) ; 

n_rda_addr=c_rda_addr+sizeof (rda_struct) ; 

addr32=( ( (unsigned long) segregs.ds << 16) | n__rda_addr) ; 

ul6=addr32>>16; 

116= (unsigned short) addr32; 

addr32= (unsigned long)ul6 * 16 + 116; 
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} 



tmp_rda= (rda_struct*) c_rda_addr ; 
tmp_rda->pkt_link= (unsigned short) addr32; 
tmp_rda->in_use=OxOf ff f ; 



/* set the last rda link field to the first rda */ 

addr3 2=( ( (unsigned long) segregs.ds « 16) | rda_addr) ; 

ul6=addr32»16; 

116= (unsigned short) addr32 ; 

addr32= (unsigned long)ul6 * 16 + 116; 

c_rda_addr=rda_addr+(RDANUM-l) *sizeof (rda_struct) ; 

tmp_rda= ( rda_struct * ) c_rda_addr ; 

tmp_rda->in_use=OxOf f f f ; 

tmp_rda->pkt_link= (unsigned short) addr32; 

tmp_rda->pkt_link|=l; /* set EOL */ 

/* set the urda and crda register */ 

outpw(regbase+urda, addr32»16) ; /* set urda */ 
outpw(regbase+crda, (unsigned short) addr32) ; /* set crda */ 



/* 

* init_rra() 
* 

* This routine is initialize the rra and set rsa, rea, rrp, rwp registers 

* 

*/ 

init_rra() 
{ 

unsigned short i, ul6, 116; 

unsigned long addr32; 

struct SREGS segregs; 

unsigned short rra_addr, addr; 

rra_struct * tmp_rra; 

segreadf&segregs) ; /* Read the segment register value */ 

/* check double word boundry */ 

rra_addr= (unsigned short) &rra[0]; 

rra_addr&=Oxfffc; 

/* initialize the rra slot */ 

for (i=0; i<RRANUM; i++) { 

addr32=( ( (unsigned long) segregs.ds « 16) | 
((unsigned short) &rba[i])); 

Ul6=addr32»16; 

116= (unsigned short) addr3 2 ; 

addr32= (unsigned long)ul6 * 16 + 116; 

addr=rra_addr+i*sizeof (rra_struct) ; 

tmp_rra=(rra_struct*) addr; 

tmp_rra->buff_ptrO= (unsigned short) addr3 2 ; 

tmp_rra->buf f_ptrl=addr32»16 ; 

tmp_rra->buff_wcO=RBA_BUF_SI2E/2; 

tmp_rra->buf f _wcl=0 ; 
> 

addr3 2=( ( (unsigned long) segregs.ds << 16) | rra addr) ; 
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ul6=addr32»16 ; 

116= (unsigned short) addr32 ; 

addr32= (unsigned long)ul6 * 16 + 116; 




/* set urra, rsa, and rrp */ 

outpw(regbase+urra, addr32 >> 16) ; /* set urra */ 
outpw(regbase+rsa, (unsigned short) addr32) ; /* set rsa */ 
outpw(regbase+rrp, (unsigned short) addr32) ; /* set rrp */ 




/* set rea and rwp */ 

addr32+=48; 

outpw(regbase+rea, (unsigned short) addr32) ; /* set rea */ 

outpw(regbase+rwp, (unsigned short) addr32) ; /* set rwp */ 

} 




/* 
* init cam() 
* 




* This routine is initialize the cam and set cdp, cdc registers. Also, 

* load the cam. 
* 

*/ 

init cam() 
{ 

unsigned short i, ul6, 116; 

unsigned long addr32; 

struct SREGS segregs; 

unsigned short cam addr, addr; 

cam_struct * tmp cam; 








segread(&segregs) ; /* Read the segment register value */ 
/* check double word boundry */ 
cam_addr= (unsigned short) &cam[0]; 
cam_addr&=Oxf f fc ; 




addr32=( ( (unsigned long) segregs. ds « 16) | cam addr) ; 

ul6=addr32»16 ; 

116= (unsigned short) addr32 ; 

addr32= (unsigned long)ul6 * 16 + 116; 




outpw(regbase+cdp, (unsigned short) addr32) ; /* load cdp */ 
outpw(regbase+cdc, 16) ; /* load cdc */ 




tmp_cam=(cam_struct *) cam addr; 
/* load the cda with node physical address */ 
tmp_cam->cam_port_info[0] .port0=inpw(regbase+0x0c90) ; 
tmp_cam->cam_port_info[0] .portl=inpw(regbase+0x0c92) ; 
tmp_cam->cam_port_info[0] ,port2=inpw(regbase+0x0c94) ; 




for(i=0; i<16; i++) 

tmp_cam->cam_port_inf o [ i ] . entry_ptr=i ; 




tmp_cam->cam_enable=l; /* load cam enable */ 




/* load cam */ 
outpw(regbase+cr, CMD_LCAM) ; 
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/* to ensure load cam is properly executed and clear LCD bit in isr */ 
for (;;) { 

if (inpw(regbase+isr) & ISR LCD) { 
outpw(regbase+isr # ISR LCD) ; 
break ; 
} 
} 




} 
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PKTDRV.H 



/* 

* $ID:$ 
* 

* Copyright (c) 1990 by National Semiconductor Corporation * 

* All Rights Reserved * 
****************************************************************************** 
*/ 



/* Packet Driver Error 
#define BAD_HANDLE 
/define N0_CLAS 
#define N0_TYPE 
/define N0_NUMBER 
#define BADJTYPE 
/define NO_MULTICAST 
/define CANT_TERMINATE 
/define BAD_MODE 
/define NO_SPACE 
/define TYPE_INUSE 

/define BAD_COMMAND 
/define CANT_SEND 
/define CANT_SET 

/define BAD_ADDRESS 
/define CANT RESET 



lumber 


-S */ 


1 


/* 


2 


/* 


3 


/* 


4 


/* 


5 


/* 


6 


/* 


7 


/* 


8 


/* 


9 


/* 


10 


/* 




/* 


11 


/* 


12 


/* 


13 


/* 




/* 


14 


/* 


15 


/* 




/* 



invalid handle number */ 

no interfaces of specified class found */ 

no interfaces of specified type found */ 

no interfaces of specified number found */ 

bad packet type specified */ 

this interface does not support multicast*/ 

this packet driver cannot terminate */ 

an invalid receiver mode was specified */ 

failed because of insufficient space */ 

the type has already been accessed */ 

and not released. */ 

command out of range, or not implemented */ 

packet couldn't be sent (usually hardware) */ 

hardware address couldn't be changed */ 

(more than 1 handle open) */ 

hardware address has bad length or format */ 

couldn't reset interface */ 

(more than 1 handle open) */ 



/define RUNT 60 

/define GIANT 1514 

/define EADDR LEN 6 



/* smallest legal size packet, no fcs */ 
/* largest legal size packet, no fcs */ 
/* Ethernet address length. */ 



/define MAX_HANDLES 10 
/define MIN_HANDLE 
/define MAX_TYPE_LEN 2 
/define OPEN -1 



/define MIN(a,b) 
/define MAX(a,b) 



(((a) < 
(((a) > 



(b)) 
(b)) 



/* handle structure */ 
typedef struct _handle { 

int in_use; 

char type[MAX_TYPE_LEN] ; 

int len; 

unsigned int recces; 

unsigned int rec_di; 
} HANDLE; 



/* max number of handles at one time */ 

/* handles are thru 9 */ 

/* max packet type length */ 

/* available handle */ 



(a) 
(a) 



(b)) 
(b)) 



/* non-zero if handle exist */ 

/* packet type */ 

/* packet length */ 

/* receiver address segment */ 

/* receiver address offset */ 



static unsigned char bit_swap[2 56] = { 

0x00, 0x80, 0X40, 0XC0, 0x20, OxaO , 0x60, OxeO, 

0x10, 0x90, 0x50, OxdO, 0x30, OxbO, 0x70, OxfO, 

0X08, 0x88, 0x48, 0xc8 , 0x28, 0xa8, 0x68, 0xe8 , 

0x18, 0x98, 0x58, 0xd8 , 0x38, 0xb8, 0x78, Oxf 8 , 

0x04, 0x84, 0X44, 0xc4 , 0x24, 0xa4 , 0x64, 0xe4 , 

0x14, 0x94, 0x54, 0xd4 , 0x34, 0xb4 , 0x74, Oxf 4, 

0x0c, 0x8c, 0x4c, Oxcc, 0x2c, Oxac, 0x6c, OXec, 
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Oxlc, 0x9c 


0x5c, Oxdc 


r 0x3c 


Oxbc 


r 0x7c, 


Oxfc, 




0x02, 0x82 


0x42, 0xc2 


, 0x22 


0xa2 


, 0x62, 


0xe2, 




0X12, 0X92 


0x52, Oxd2 


, 0x32 


0xb2 


f 0*12, 


0xf2, 




OxOa, 0x8a 


0x4a, Oxca 


, 0x2a 


Oxaa 


r 0x6a, 


Oxea, 




Oxla, 0x9a 


0x5a, Oxda 


f 0x3a 


Oxba 


, 0x7a, 


Oxfa, 




0x06, 0x86 


0x46, 0xc6 


, 0x26 


0xa6 


, 0x66, 


0xe6, 




0x16, 0x96 


0x56, 0xd6 


, 0x36 


0xb6 


r 0x76, 


0xf6, 




OxOe, 0x8e, 


0x4e, Oxce 


r 0x2e 


Oxae 


, 0x6e, 


Oxee, 




Oxle, 0x9e, 


0x5e, Oxde 


r 0x3e 


Oxbe 


f 0x7e, 


Oxfe, 




0x01, 0x81, 


0x41, Oxcl 


, 0x21 


Oxal 


, 0X61, 


Oxel, 




Oxll, 0X91, 


0x51, Oxdl 


0x31 


Oxbl 


, 0x71, 


Oxfl, 




0x09, 0x89, 


0x4 9, 0xc9 


0x29 


0xa9 


, 0x69, 


0xe9, 




0x19, 0x99, 


0x59, 0xd9 


0x39 


0xb9 


, 0X79, 


0xf9, 




0x05, 0X85, 


0x45, 0xc5 


0x2 5 


0xa5 


, 0x65, 


0xe5, 




0x15, 0x95, 


0x55, 0xd5 


0x3 5 


0xb5 


, 0x75, 


0xf5, 




OxOd, 0x8d, 


0x4d, Oxcd 


0x2d 


Oxad 


0x6d, 


Oxed, 




Oxld, 0x9d, 


0x5d, Oxdd 


0x3d 


Oxbd 


0x7d, 


Oxfd, 




0x03, 0x83, 


0x43, 0xc3 


0x2 3 


0xa3 


0x63, 


0xe3, 




0x13, 0x93, 


0x53, 0xd3 


0x33 


0xb3 


0x73, 


Oxf3, 




OxOb, 0x8b, 


0x4b, Oxcb 


0x2b 


Oxab 


0x6b, 


Oxeb, 




Oxlb, 0x9b, 


0x5b, Oxdb 


0x3b 


Oxbb 


0x7b, 


Oxfb, 




0X07, 0X87, 


0x47, 0xc7 


0x27 


0xa7 


0x67, 


Oxe7, 




0x17, 0x97, 


0x57, 0xd7 


0x37 


0xb7 


0x77, 


0xf7, 




OxOf, 0x8f, 


0x4f, Oxcf 


0X2 f 


Oxaf 


0x6f , 


Oxef , 




Oxlf, 0x9f, 

}; 

#define BIT_ 


0x5f, Oxdf 


0X3 f 


Oxbf 


0x7f , 


Oxff, 




SWAP (a) 


bit_ 


swap [ (unsigned char ) (a) ] 




#define BYTI 


]_SWAP(a, b) 


{ * 


'a) = *(b+l); 


*(a+l) = *(b) ; } 




#define BUF_SZ 


1514 












static unsignec 


I char s_buf 


BUF_SI 


33; 








static unsignec 


I char snap[; 


= 










/* SNAP */ 














{ 170, 170, 


3, 0, 0, 


}; 










#define ETYPE C 


)FS 12 












#define DATA Of 


^S 14 












#define MAC_LEt* 


I 14 












static struct < 














unsigned lc 


>ng packets 


in; 










unsigned lc 


>ng packets^ 


out; 










unsigned lc 


>ng bytes ir 


i; 










unsigned lc 


>ng bytes oi 


it; 










unsigned lc 


>ng errors_j 


-n; 










unsigned lc 


>ng errors c 


>ut; 










unsigned lc 


>ng packets^ 


droppe 


id; 








} drv_stats ; 














static struct ^ 














unsigned ch 


ar major_re 


iv; 










unsigned ch 


ar minor_r€ 


iv; 










unsigned ch 


ar length; 












unsigned ch 


ar addr_ler 


»; 










unsigned sh 


ort mtu; 












unsigned sh 


ort multicas 


>t_ava3 


7 








unsigned sh 


ort rcv_bufs 












unsigned sh 


ort xmt bufs 


»/ 








TL/F/1 1720-29 


unsigned sh 


ort int_num; 












} drv_param; 
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SONIC.H 



/* 



* $ID:$ 
* 

* Copyright (c) 1990 by National Semiconductor Corporation * 

* All Rights Reserved * 



*/ 
/* SONIC definition and data structures */ 



#def ine 


TDANUM 


5 


#def ine 


RDANUM 


40 


#def ine 


RRANUM 


3 


/define 


RBA BUF SIZE 


8192 


#def ine 


TBA_BUF_SIZE 


1514 


/* isr bit 


pattern */ 




/define ' 


CMD LCAM 


0X0200 


/define 


ISR RFO 


0x0001 


/define 


ISR RBE 


0X0020 


/define 


ISR RDE 


0x0040 


/define 


ISR PKTRX 


0x0400 


/define 


ISR TXDN 


0x0200 


/define 


ISR TXER 


0X0100 


/define 


ISRJLCD 


0x1000 


/define 


THIN 


0X03 


/define 


THICK 


0X01 


/define 


ID ADDR 


OxCSO 


/define 


MAX SLOT 


15 



/it*********************************************************** 

* * 

* Offset of the EISA9010 register from the regbase address * 

* * 

/define plx_ebc 0xC84 /* EBC register */ 

/define plx_reg0 0xC88 /* register */ 

/define plx_regl 0xC89 /* register 1 */ 

/define plx_reg2 0xC8A /* register 2 */ 

/define plx_reg3 0xC8F /* register 3 */ 

* * 

* Offset of the register from the i/o base address * 

* * 

/* Command */ 

2 /* Data Configuration */ 

4 /* Receive Control */ 

6 /* Transmit Control */ 

8 /* Interrupt Mask */ 

10 /* Interrupt Status */ 

12 /* Upper Transmit Descriptor Addr */ 

14 /* Current Transmit Descriptor Addr */ 

16 /* Transmit Packet Size */ 

18 /* Transmit Fragment Count */ 

20 /* Transmit Start Address */ 



/define 


cr 


/define 


dcr 


/define 


rcr 


/define 


tcr 


/define 


imr 


/define 


isr 


/define 


utda 


/define 


ctda 


/define 


tps 


/define 


tfc 


/define 


tsaO 
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/define 


tsal 


22 


/* 


Transmit Start Address 1 */ 




/define 


tfs 


24 


/* 


Transmit Fragment Size */ 




#def ine 


urda 


26 


/* 


Upper Receive Descriptor Addr */ 




#def ine 


crda 


28 


/* 


Current Receive Descriptor Addr */ 




#def ine 


crbaO 


30 


/* 


Current Receive Buffer Addr */ 




#def ine 


crbal 


32 


/* 


Current Receive Buffer Addr 1 */ 




/define 


rbwcO 


34 


/* 


Remaining Buffer Word Count */ 




/define 


rbwcl 


36 


/* 


Remaining Buffer Word Count 1 */ 




/define 


eobc 


38 


/* 


End of Buffer Word Count */ 




/define 


urra 


40 


/* 


Upper Receive Resource Addr */ 




/define 


rsa 


42 


/* 


Resource Start Addr */ 




/define 


rea 


44 


/* 


Resource End Addr */ 




/define 


rrp 


46 


/* 


Resource Read Addr */ 




/define 


rwp 


48 


/* 


Resource Write Addr */ 




/define 


trbaO 


50 


/* 


Temp Recv. Buffer Addr */ 




/define 


trbal 


52 


/* 


Temp Recv. Buffer Addr 1 */ 




/define 


tbwcO 


54 


/* 


Temp Buffer Word Count */ 




/define 


tbwcl 


56 


/* 


Temp Buffer Word Count 1 */ 




/define 


addrO 


58 


/* 


Address Generator */ 




/define 


addrl 


60 


/* 


Address Generator 1 */ 




/define 


Ufa 


62 


/* 


Last link Field Addr */ 




/define 


ttda 


64 


/* 


Temp Transmit Descriptor Addr */ 




/define 


cep 


66 


/* 


CAM entry Point */ 




/define 


cap2 


68 


/* 


CAM Address Port 2 */ 




/define 


capl 


70 


/* 


CAM Address Port 1 */ 




/define 


capO 


72 


/* 


CAM Address Port */ 




/define 


ce 


74 


/* 


CAM Enable */ 




/define 


cdp 


76 


/* 


CAM Descriptor Pointer */ 




/define 


cdc 


78 


/* 


CAM Descriptor Count */ 




/define 


sr 


80 


/* 


Silicon Revision */ 




/define 


WtO 


82 


/* 


Watchdog Timer */ 




/define 


wtl 


84 


/* 


Watchdog Timer 1 */ 




/define 


rsc 


86 


/* 


Receive Sequence Counter */ 




/define 


crct 


88 


/* 


CRC Error Tally */ 




/define 


faet 


90 


/* 


FAE Error Tally */ 




/define 


mpt 


92 


/* 


Missed Packet Tally */ 




/define 


mdt 


94 


/* 


Maximum Deferral Timer */ 




/define 


rtc 


96 


/* 


Receive Test Control */ 




/define 


ttc 


98 


/* 


Transmit Test Control */ 




/define 


dtc 


100 


/* 


DMA Test Control */ 




/define 


ccO 


102 


/* 


CAM Comparison */ 




/define 


ccl 


104 


/* 


CAM Comparison 1 */ 




/define 


cc2 


106 


/* 


CAM Comparison 2 */ 




/define 


cm 


108 


/* 


CAM Match */. 




/define 


reservel 


110 


7* 


Reserved */ 




/define 


reserve2 


112 


/* 


Reserved */ 




/define 


rbc 


114 


/* 


Receiver Byte Count */ 




/define 


reserve3 


116 


/* 


Reserved */ 




/define 


tbc 


118 


/* 


Transmitter Backoff Counter */ 




/define 


trc 


120 


/* 


Transmitter Random Counter */ 




/define 


tbm 


124 


/* 


Transmitter Backoff Mask */ 




/define 


reserve4 


126 


/* 


Reserved */ 




/define 


reserves 


128 


/* 


Reserved */ 




/define 


BASIC 











/define 


HIGH_PERFORMANCE 


1 




/* tda structure 


*/ 








typedef 


struct tda_construct { 






unsigned 


long 


status; 
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unsigned 


long 


config; 


unsigned 


long 


pkt size; 


unsigned 


long 


frag_count; 


unsigned 


long 


frag ptrO; 


unsigned 


long 


frag_ptrl; 


unsigned 


long 


frag_size; 


unsigned 


long 


lino- 


unsigned 


long 


type; 


char far 


* 


buffer; 


unsigned 


long 


xmt_di; 


unsigned 


long 


xmt es ; 


} tda struct; 






/* rda structure 


*/ 




typedef struct rda construct { 


unsigned 


long 


status; 


unsigned 


long 


byte count; 


unsigned 


long 


pkt_ptrO ; 


unsigned 


long 


pkt_ptrl; 


unsigned 


long 


seq no; 


unsigned 


long 


pkt_link; 


unsigned 


long 


in_use; 


} rda_struct; 







/* rra structure */ 

typedef struct rra_construct { 

unsigned long buff_ptrO; 



} 



unsigned long 
unsigned long 
unsigned long 
rra_struct ; 



buff_ptrl; 
buff_wcO; 
buff wcl; 



/* rba structure */ 

typedef struct rba_construct { 

unsigned char buff [RBA_BUF_SIZE] ; 
> rba_struct; 

/* tba structure */ 

typedef struct tba_construct { 

unsigned char tba_buf f [TBA_BUF_SIZE] ; 
} tba_struct ; 

typedef struct cam_port { 

unsigned long entry_j>tr; 

unsigned long portO; 

unsigned long portl; 

unsigned long port2; 
} cam_port_struct ; 

typedef struct cam_con struct { 

cam_port_struct cam_port_inf o [ 16 ] ; 

unsigned long cam_enable; 
} cam_struct ; 

rba_struct rba[RRANUM]; 

tba_struct tba[TDANUM]; 

unsigned char tda[TDANUM*sizeof (tda_struct) +3] ; 

unsigned char rda[RDANUM*sizeof (rda_struct) +3] ; 

unsigned short in_isr; 
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unsigned char rra[RRANUM*sizeof (rda_struct) +3 ] ; 
unsigned char cam[sizeof (cam_struct) +3] ; 



unsigned short sonic_irq; 

unsigned short cable_jtype; 

unsigned short regbase; 

short transmitactive; 

short curtda; 

short currda; 

short previous_seqno; 

short retry; 

unsigned short rwp_table[6] ; 

short cur_rwp; 

unsigned short tda_addr; 

unsigned short tda_start_addr; 

unsigned short rda_addr; 

unsigned short c_rda; 

unsigned short rda_start_addr; 

unsigned char far *type_ptr; 

short tda_head; 

short tda tail; 

rda_struct * cur_rda; 



/* sonic interrupt*/ 

/* thin/thick cable */ 

/* base io address */ 

/* transmission currently active flag */ 

/* current tda */ 

/* current rda */ 

/* previous sequence number */ 

/* transmit retry counter */ 

/* RRA location table structure */ 

/* pointer to rwp_table */ 

/* tda starting address */ 

/* tda starting physical address */ 

/* rda starting address */ 



/* pointer for packet type */ 
/* head ptr to tda list */ 
/* tail ptr to tda list */ 
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ISRLIB.ASM 




} 


;* 


Copyright (c) 1990 National Semiconductor Corporation * 


;* 




All Rights Reserved * 


;**************************************************** A * A * AA * AAAA+A * A ^ A * A * A ^ A ^^ A 


TEXT 


SEGMENT 


WORD PUBLIC 'CODE' 


TEXT 


ENDS 




DATA 


SEGMENT 


WORD PUBLIC 'DATA' 


DATA 


ENDS 




CONST 


SEGMENT 


WORD PUBLIC 'CONST' 


CONST 


ENDS 




BSS 


SEGMENT 


WORD PUBLIC 'BSS' 


BSS 


ENDS 




DGROUP 


GROUP 


CONST, BSS, DATA 




ASSUME 


CS: _TEXT, DS : DGROUP, SS: DGROUP 


_TEXT 


segment 


word public 'CODE' 




assume 


cs: TEXT 




public 


_get_sp 


_get_sp 




proc far 




mov 


ax,sp 




add 


ax, 4 




mov 


dx,ss 




ret 




_get_sp 




ENDP 




public 


_set_sp 


_set_sp 




proc far 




mov 


bx, ss 




mov 


es,bx 




mov 


bx,sp 




pushf 






cli 






pop 


dx 




mov 


sp,word ptr ss:[bx+4] 




mov 


ss,word ptr ss:[bx+6] 




and 


dx,512 




jz 


skip 




sti 




skip: 


sub 


sp,4 




mov 


ax, word ptr es:[bx+2] 




push 


ax 




mov 


ax, word ptr es: [bx] 




push 


ax 




ret 




_set_sp 




ENDP 




public 


_get_if 


_get_if 


pushf 


proc far 




pop 


dx 




mov 


ax, 




and 


dx,512 
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jz 


ifret 






mov 


ax, 1 






if ret: ret 








get if 


ENDP 






ARG_OFS equ 


6 


;near = 4, far = 6 (from bp) 




public intfddi 






_int_fddi 


proc far 






push 


bp 






mov 


bp, sp 






sub 


sp, 8 


;work area for INT code 




;put 


INT code on stack 






mov 


byte ptr[bp - 2] , 


Ocbh 




mov 


ax, word ptr[bp + 


ARG_OFS ] 




mov 


[bp - 3], al 






mov 


byte ptr [bp - 4] , 


Ocdh 




mov 


word ptr [bp - 6] , 


ss 




lea 


ax, word ptr[bp - 


4] 




mov 


word ptr[bp - 8], 


ax 




;get 


regs values off sp, pointers are far 




push 


bp 






mov 


es, [bp + ARG OFS 


+ 4] 




mov 


bp, [bp + ARGJ3FS 


+ 2] 




mov 


ax, es: [bp] 






mov 


bx, es: [bp + 2] 






mov 


ex, es: [bp + 4] 






mov 


dx, es: [bp + 6] 






mov 


si, es: [bp + 8] 






mov 


di, es: [bp + 10] 






pop 


bp 






call 


dword ptr[bp - 8] 


;do INT 




;get 


carry bit 






push 


ax 






pushf 








pop 


ax 






and 


ax, 1 


;mask carry bit 




;put 


regs values on sp 






mov 


es, [bp + ARG OFS 


+ 8] 




mov 


bp, [bp + ARG_OFS 


+ 6] 




mov 


es: [bp + 12] , ax 


;cf lag 




pop 


ax 






mov 


es: [bp] , ax 






mov 


es: [bp + 2] , bx 






mov 


es: [bp + 4] , ex 






mov 


es: [bp + 6] , dx 






mov 


es: [bp + 8] , si 






mov 


es: [bp + 10] , di 






add 


sp, 8 






pop 


bp 






ret 








_int_fddi 


ENDP 






JTEXT ends 








end 
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PKTINT.ASM 



* Copyright (c) 1990 by National Semiconductor Corporation * 

* All Rights Reserved * 

title TEXT - Interrupt service routine 
extrn int handler: near 



_TEXT SEGMENT WORD PUBLIC 'CODE' 

_TEXT ENDS 

_DATA SEGMENT WORD PUBLIC 'DATA' 

_DATA ENDS 

CONST SEGMENT WORD PUBLIC 'CONST' 

CONST ENDS 

_BSS SEGMENT WORD PUBLIC 'BSS' 

_BSS ENDS 

DGROUP GROUP CONST, _BSS, _DATA 

ASSUME CS: _TEXT, DS: DGROUP, SS: DGROUP 

_DATA SEGMENT WORD PUBLIC 'DATA' 

assume ds: DGROUP 

rcvr_ptr dd ? 

upcall_ptr dd ? 

segmoffs struc 

offs dw ? 

segm dw ? 

segmoffs ends 



DATA 



ENDS 



_TEXT segment word public 'CODE' 
assume cs:_TEXT 

CFLAG_OFFSET equ 2 

FLAG_OFFSET equ 6 

REGS_OFFSET equ 14 

SREGS_OFFSET equ 22 



public _drv_isr 
_drv_isr proc far 



jmp 

db 



start 

'PKT DRVR' ,0 



; driver signature 



; setup registers on stack for MSC's union REGS and struct SREGS 
start: 



assume ds: nothing 

push bp 

mov bp, sp 

and word ptr[bp+FLAG_OFFSET] , not 1 /clear carry bit 

push word ptr [bp+FLAG_OFFSET] ;put in cflag field of structure 

push di ;save regular registers 
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push 


si 






push 


dx 






push 


ex 






push 


bx 






push 


ax 






push 


ds ;save segment registers 




push 


ss 






push 


cs 






push 


es 






push 


ss 






lea 


ax, word ptr [bp-SREGS_OFFSET] 


;pass sregs pointer 




push 


ax 






push 


ss 






lea 


ax, word ptr [bp-REGS OFFSET] 


;pass regs pointer -> ax 




push 


ax 






mov 


ax, DGROUP 


;get global data segment 




mov 


ds, ax 


;make segment addressable 




assume 


ds: DGROUP 






eld 








call 


_int_handler 


;call C interrupt handler 




add 


sp, 8 






mov 


ax, word ptr [bp-CFLAG_OFFSET] 


;mov cflag to flag reg 




mov 


word ptr[bp+FLAG OFFSET], ax 






pop 


es 


; restore registers 




pop 


ax 


; dummy pop for cs 




pop 


ss 






pop 


ds 






pop 


ax 






pop 


bx 






pop 


ex 






pop 


dx 






pop 


si 






pop 


di 






pop 


bp 


;pop cflag of structure 




pop 


bp 






iret 




; return from interrupt 




_drv_isr 


endp 






public 


_app recv 






_app recv proc 


near 






ax_ofs equ 4 








assume 


ds : DGROUP 






push 


bp 






mov 


bp, sp 






push 


ds 






push 


es 






push 


bx 






mov 


bx, [bp+ax_ofs+10] ; set-up 


app reciever 




mov 


revr ptr.offs, bx 






mov 


bx, [bp+ax_ofs+12] 






mov 


rcvr_ptr . segm , bx 
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les 


bx, dword ptr[bp+ax ofs+6] 


; buffer 




mov 


si, word ptr es: [bx] 






push 


ds 






mov 


ds, word ptr es:[bx+2] 






mov 


ax, [bp+ax ofs] 






mov 


bx, [bp+ax_ofs+2] 






mov 


ex, [bp+ax_ofs+4] 






pop 


es 






assume 


es : DGROUP 






call 


esrrcvr ptr 






mov 


ax, es 






les 


bx, dword ptr [bp+ax ofs+6] 


/update pointer ES:DI 




mov 


word ptr es:[bx], di 






mov 


word ptr es:[bx+2], ax 






pop 


bx 






pop 


es 






pop 


ds 






Pop 


bp 






ret 




; return 




_app_recv 


endp 






public 


xmt upcall 






_xmt_upcall proc near 






ret_ofs equ 4 








assume 


ds: DGROUP 






push 


bp 






mov 


bp, sp 






push 


ds 






push 


es 






push 


bx 






mov 


bx, [bp+ret ofs+6] 






mov 


upcall ptr.offs, bx 






mov 


bx , [ bp+ret_of s+8 ] 






mov 


upcall ptr.segm, bx 






les 


bx, dword ptr [bp+ret ofs+2] 


; buffer 




mov 


di, word ptr ds: [bx] 






mov 


es, word ptr ds:[bx+2] 






mov 


ax, [bp+ret ofs] 






assume 


ds : DGROUP 






call 


ds:upcall_ptr 






pop 


bx 






pop 


es 






pop 


ds 






pop 


bp 






ret 




; return 




_xmt upcall 


endp 






_TEXT ends 








end 
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MAKEFILE 

ZI = -Zi 

INC = . . \include 

CFLAGS = $(Zi) -Gs -I$(INC) -c 

MFLAGS = -Ml 

OBJ = pktdrv.obj sonic. obj pktint.obj far.obj isr.obj isrlib.obj 

LIB 

sonic. obj: sonic. c $ (INC) \sonic.h 
cl $ (CFLAGS) $*.c 

pktdrv.obj: pktdrv.c $ (INC) \pktdrv.h $ (INC) \sonic.h 
cl $ (CFLAGS) $*.c 

far.obj: far.c $ (INC) \sonic.h 
cl $(CFLAGS) $*.c 

isr.obj: isr.c $ (INC) \sonic.h 
cl $ (CFLAGS) $*.c 

isrlib.obj: isrlib.asm 

masm $ (MFLAGS) $*.asm; 

pktint.obj: pktint.asm 

masm $ (MFLAGS) $*.asm; 

pktdrv.exe: $(OBJ) 

cl $(ZI) $(OBJ) -o $* 

clean: 

-del *.obj 
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LIFE SUPPORT POLICY 

NATIONAL'S PRODUCTS ARE NOT AUTHORIZED FOR USE AS CRITICAL COMPONENTS IN LIFE SUPPORT 
DEVICES OR SYSTEMS WITHOUT THE EXPRESS WRITTEN APPROVAL OF THE PRESIDENT OF NATIONAL 
SEMICONDUCTOR CORPORATION. As used herein: 



1. Life support devices or systems are devices or 2. A critical component is any component of a life 



systems which, (a) are intended for surgical implant 
into the body, or (b) support or sustain life, and whose 
failure to perform, when properly used in accordance 
with instructions for use provided in the labeling, can 
be reasonably expected to result in a significant injury 
to the user. 



support device or system whose failure to perform can 
be reasonably expected to cause the failure of the life 
support device or system, or to affect its safety or 
effectiveness. 
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National does not assume any responsibility for use of any circuitry described, no circuit patent licenses are implied and National reserves the right at any time without notice to change said circuitry and specificatioi 



